       01  rQ088Input.
         03  fill--0 PIC X(16).
         03  rq088--ttl--id PIC S9(9) COMP.
         03  rq088--req--data PIC X(6).
       01  RQ088OutputPart.
         03  rq088--dc--info OCCURS 5 TIMES.
           05  rq088--dc--cd PIC X(2).
           05  rq088--dc--st--cd PIC X(2).
           05  rq088--item--ohnd--qty PIC S9(9) COMP.
           05  rq088--item--oord--qty PIC S9(9) COMP.
           05  rq088--item--cmmt--bkor--qty PIC S9(9) COMP.
           05  rq088--item--bkor--qty PIC S9(9) COMP.
           05  rq088--prd--curr--dmnd--cnt PIC S9(9) COMP.
           05  rq088--prd--dmnd--1--cnt PIC S9(9) COMP.
           05  rq088--prd--dmnd--2--cnt PIC S9(9) COMP.
           05  rq088--prd--dmnd--3--cnt PIC S9(9) COMP.
           05  rq088--prd--dmnd--4--cnt PIC S9(9) COMP.
           05  rq088--prv--weeks--avg PIC S9(9) COMP.
           05  rq088--item--sale--ytd--amt PIC S9(9) COMP.
           05  rq088--item--sls--mtd--amt PIC S9(9) COMP.
           05  rq088--item--sls--ly--amt PIC S9(9) COMP.
           05  rq088--item--rtn--pub--qty PIC S9(9) COMP.
         03  rq088--yr--sales--dmnd OCCURS 5 TIMES.
           05  rq088--bus--yy--id PIC S9(4) COMP.
           05  rq088--bus--prd--sales--dmnd OCCURS 12 TIMES.
             07  rq088--bus--prd--id PIC S9(4) COMP.
             07  rq088--sales--cnt PIC S9(9) COMP.
             07  rq088--dmnd--cnt PIC S9(9) COMP.
